home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 10 / 010.d81 / trial and error (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  1.0 KB  |  41 lines
  1. 10 rem ***************************
  2. 20 rem *    -trial and error-    *
  3. 30 rem *     shlomo ginsberg     *
  4. 35 rem * use for any expression  *
  5. 40 rem *    by changing lines    *
  6. 45 rem *       150 and 190       *
  7. 50 rem ***************************
  8. 60 poke53280,11:poke53281,0
  9. 70 print"[147]";
  10. 80 print"            trial and error           ";
  11. 90 print"           shlomo ginsberg, 1984          "
  12. 100 input" initial point        ";x
  13. 110 input" initial step         ";s
  14. 120 input" convergence criterion";c
  15. 130 rem
  16. 140 i%=0:k=1
  17. 150 y=x*x*x-6*x*x+11*x-6
  18. 160 print"[147]cycle=";i%;"x=";x;"y=";y
  19. 165 ifpeek(197)<>64then60000
  20. 170 ifabs(y)<cthen280
  21. 180 x=x+s:goto260
  22. 190 y=x*x*x-6*x*x+11*x-6
  23. 200 print"cycle=";i%;"x="x;"y=";y
  24. 205 ifpeek(197)<>64then60000
  25. 210 ifabs(y)<cthen280
  26. 220 j%=sgn(y1)*sgn(y)
  27. 230 ifj%<>1thenk=0.5
  28. 240 s=k*j%*s
  29. 250 x=x+s
  30. 260 y1=y:i%=i%+1
  31. 270 goto190
  32. 280 print"             that's all folks           "
  33. 290 rem    stop
  34. 300 :
  35. 60000 print"do it again?"
  36. 60010 poke198,0:wait198,1:getk$:ifk$<>"y"andk$<>"n"thenpoke53280,rnd(1)*15:goto60010
  37. 60020 ifk$="y"thenrun
  38. 63000 rem   connect back to loadstar
  39. 63010 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  40. 63020 poke631,13:poke632,13:poke198,2:end
  41.